for (i in 1:nrow(horizonte)){
print(horizonte$profilnummer[i])
result <- schluff_oe(portions=c(horizonte$T[i],horizonte$U[i],horizonte$fS[i], horizonte$SohnefS[i]),breaks=c(0.002,0.05,0.1,2))
horizonte$textur[i] <- textur_oe(t=result[1],u=result[2])
horizonte$ton[i] <- result[1]
horizonte$schluff[i] <- result[2]
horizonte$sand[i]<- result[3]
}
## [1] 1
## [1] 1
## [1] 1
## [1] 1
## [1] 2
## [1] 2
## [1] 2
## [1] 2
## [1] 3
## [1] 3
## [1] 3
## [1] 3
## [1] 3
## [1] 4
## [1] 4
## [1] 4
## [1] 4
## [1] 5
## [1] 5
## [1] 5
## [1] 5
## [1] 6
## [1] 6
## [1] 6
## [1] 6
## [1] 7
## [1] 7
## [1] 7
## [1] 7
## [1] 7
## [1] 8
## [1] 8
## [1] 8
## [1] 8
## [1] 9
## [1] 9
## [1] 9
## [1] 10
## [1] 10
## [1] 10
## [1] 11
## [1] 11
## [1] 12
## [1] 12
## [1] 13
## [1] 13
## [1] 13
## [1] 13
## [1] 14
## [1] 14
## [1] 14
## [1] 14
## [1] 14
## [1] 15
## [1] 15
## [1] 15
## [1] 15
## [1] 15
## [1] 16
## [1] 16
## [1] 16
## [1] 17
## [1] 17
## [1] 17
## [1] 17
## [1] 17
## [1] 18
## [1] 18
## [1] 18
## [1] 18
## [1] 18
## [1] 18
## [1] 18
## [1] 19
## [1] 19
## [1] 19
## [1] 19
## [1] 20
## [1] 20
## [1] 20
## [1] 20
## [1] 21
## [1] 21
## [1] 21
## [1] 21
## [1] 22
## [1] 22
## [1] 22
## [1] 22
## [1] 23
## [1] 23
## [1] 23
## [1] 23
## [1] 23
## [1] 23
## [1] 24
## [1] 24
## [1] 24
## [1] 24
## [1] 25
## [1] 25
## [1] 25
## [1] 25
## [1] 25
## [1] 26
## [1] 26
## [1] 26
## [1] 26
## [1] 27
## [1] 27
## [1] 27
## [1] 27
## [1] 28
## [1] 28
## [1] 28
## [1] 28
## [1] 28
## [1] 29
## [1] 29
## [1] 29
## [1] 29
## [1] 30
## [1] 30
## [1] 30
## [1] 30
## [1] 31
## [1] 31
## [1] 31
## [1] 32
## [1] 32
## [1] 32
## [1] 32
## [1] 32
## [1] 33
## [1] 33
## [1] 33
## [1] 33
## [1] 33
## [1] 33
## [1] 34
## [1] 34
## [1] 34
## [1] 34
## [1] 35
## [1] 35
## [1] 35
## [1] 35
## [1] 35
## [1] 36
## [1] 36
## [1] 37
## [1] 37
## [1] 37
## [1] 37
## [1] 38
## [1] 38
## [1] 38
## [1] 38
## [1] 39
## [1] 39
## [1] 39
## [1] 40
## [1] 40
## [1] 40
## [1] 40
## [1] 40
## [1] 41
## [1] 41
## [1] 41
## [1] 41
## [1] 41
## [1] 42
## [1] 42
## [1] 42
## [1] 42
## [1] 43
## [1] 43
## [1] 43
## [1] 44
## [1] 44
## [1] 44
## [1] 45
## [1] 45
## [1] 45
## [1] 45
## [1] 46
## [1] 46
## [1] 46
## [1] 47
## [1] 47
## [1] 47
## [1] 47
## [1] 48
## [1] 48
## [1] 48
## [1] 49
## [1] 49
## [1] 49
## [1] 49
## [1] 50
## [1] 50
## [1] 50
## [1] 51
## [1] 51
## [1] 51
## [1] 51
## [1] 51
## [1] 52
## [1] 52
## [1] 52
## [1] 53
## [1] 53
## [1] 54
## [1] 54
## [1] 54
## [1] 55
## [1] 55
## [1] 55
## [1] 56
## [1] 56
## [1] 57
## [1] 57
## [1] 58
## [1] 58
## [1] 58
## [1] 59
## [1] 59
## [1] 59
